怎样可以取到服务器的名称

可以参考这两个程序： 


1。设置计算机名称： 

Declare Function SetComputerName Lib"kernel32.dll" Alias"SetComputerNameA"(Byval ipcomputername As String)As Long 
ipcomputername="my" 
temp=SetComputerName(ipcomputername) 

2、利用程序获取计算机名称及登陆用户名： 

Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (Byval lpBuffer As String,nSize As Integer)As Long 
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"(Byval t$,Byval ttt$,Byval siz&)As Long 
Dim lpBuffer As String 
    Dim nSize As Integer 
    nSize=48 
    Call GetComputerName(lpBuffer,nSize) 
    Print tt$ 
    Dim ttt As String 
    Dim t As String 
    t="" 
    Call WNetGetUser(0,ttt,8) 
    Print ttt